home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 25
/
AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso
/
Updates
/
AddOns
/
Scalos-ECM
/
Install_Module
< prev
next >
Wrap
Text File
|
2000-05-16
|
2KB
|
100 lines
; Installer for $VER:Execute Command 1.0 (07.11.1999)
(SET @default-dest "SCALOS:Modules/")
(SET @default-docdir "SCALOS:Docs/")
(SET @default-images (CAT @default-dest "Images"))
(SET default_lang 1)
; ***** english texts *****
(SET #needKick (CAT "\nWBInfo needs Workbench Version 39 at least." ) )
(SET #startMsg (CAT "\nExecute Command V1.0 - the ultimate replacement !\n\n"
"This script installs Execute_Command.module on your AMIGA.\n\n") )
(SET #destPrompt (CAT "Please choose the destination directory for Execute Command.\n" ) )
(SET #copyPFiles (CAT "Copying program files") )
(SET #langPrompt (CAT "Select the languages you wish to use with Execute Command.") )
(SET #DocPrompt (CAT "Select the directory for the documentation file.") )
(SET #exitMsg (CAT "Execute Command installation succeeded\nYou can use it now.") )
; ***** start installation *****
(if (< (/ (GETVERSION) 65536) 39)
(ABORT #needKick)
)
(MESSAGE #startMsg)
; ***** get dest dir for Execute Command *****
(SET @default-dest
(ASKDIR (PROMPT #destPrompt)
(HELP @askdir-help)
(DEFAULT @default-dest )))
(COPYFILES (SOURCE "Execute_Command.module")
(HELP @copyfiles-help)
(DEST @default-dest )
(INFOS)
(NOPOSITION)
)
(COPYFILES (SOURCE "Images")
(ALL)
(HELP @copyfiles-help)
(DEST @default-images)
(INFOS)
)
; ***** install some languages *****
(SET language (ASKOPTIONS (PROMPT #langPrompt)
(HELP @askoptions-help)
(CHOICES "english"
)
(DEFAULT (+ default_lang 0) )
)
)
;(if (IN language 1)
; (COPYFILES (SOURCE "catalogs/deutsch/Execute_Command.catalog")
; (DEST "Locale:Catalogs/deutsch") )
;)
; ***** get dest for doc files *****
(SET @DocDir
(ASKDIR (PROMPT #DocPrompt)
(HELP @askdir-help)
(DEFAULT @default-docdir)
(NEWPATH)
)
)
; ***** install doc files *****
(if (IN language 0)
(SET SDocDir "docs/english")
)
(if (IN language 1)
(SET SDocDir "docs/deutsch")
)
(COPYFILES (SOURCE SDocDir)
(DEST @DocDir)
(CHOICES "ExecuteCommand.guide")
(INFOS)
(NOPOSITION)
)
(EXIT #exitMsg)